home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / testfiles / TestTrackDisk < prev   
Encoding:
Text File  |  2000-05-15  |  797 b   |  44 lines
  1. df0 <- TrackDisk new: 'DF0:'
  2.  
  3. df0 open: 0
  4.  
  5. rval <- df0 isDiskPresent
  6. ('Disk Presence is ', (rval asString)) print
  7.  
  8. rval <- df0 getSectorSize
  9. ('Sector size for DF0: is ', (rval asString)) print
  10.  
  11. rval <- df0 getTrackSize
  12. ('Track size for DF0: is ', (rval asString)) print
  13.  
  14. rval <- df0 getNumberOfTracks
  15. ('# of tracks for DF0: is ', (rval asString)) print
  16.  
  17. rval <- df0 getTotalSectors
  18. ('Total # of Sectors for DF0: is ', (rval asString)) print
  19.  
  20. rval <- df0 getDriveType
  21. ('Drive type for DF0: is ', (rval asString)) print
  22.  
  23. df0 displayDriveType
  24.  
  25. df0 seekTrack: 80
  26.  
  27. rval <- df0 isWriteProtected 
  28. ('Disk Write-Protection is ', (rval asString)) print
  29.  
  30. (df0 getDeviceType) print
  31.  
  32. rval <- df0 readTrack: 50
  33.  
  34. df0 displayBytes: rval
  35.  
  36. df0 clearReadBuffer
  37.  
  38. df0 ejectDisk
  39.  
  40. (df0 getErrorString) print
  41.  
  42. df0 close
  43.  
  44.